home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / LgcyPlus / disk2 / METRWDGT._ / METRWDGT.
Encoding:
Text File  |  2001-03-02  |  1.1 KB  |  30 lines
  1. 10    ! *********************************************************
  2. 20    ! Example: METER Widget
  3. 30    !
  4. 40    ! This program generates a METER widget with a 360 degree
  5. 50    ! scale. When the pointer is within the HIGH and LOW
  6. 60    ! LIMITS areas, beeps are generated.
  7. 70    !
  8. 80    ! *********************************************************
  9. 90    !
  10. 100   INTEGER N,M
  11. 110   ASSIGN @Meter TO WIDGET "METER"
  12. 120   CONTROL @Meter;SET ("TITLE":" Example: METER Widget")
  13. 130   CONTROL @Meter;SET ("X":50,"Y":25,"WIDTH":250,"HEIGHT":250)
  14. 140   CONTROL @Meter;SET ("ALARM RANGES":"LOW,HIGH","ALARM TYPE":"BEEP")
  15. 150   CONTROL @Meter;SET ("LOW LIMIT":10,"HIGH LIMIT":90,"SWEEP ANGLE":360)
  16. 160   CONTROL @Meter;SET ("MIDDLE PEN":0,"NEEDLE PEN":6,"NEEDLE WIDTH":2)
  17. 170   CONTROL @Meter;SET ("SYSTEM MENU":"Quit")
  18. 180   ON EVENT @Meter,"SYSTEM MENU" GOTO Finis
  19. 190   !
  20. 200   FOR M=1 TO 3
  21. 210     FOR N=1 TO 100
  22. 220       WAIT .1
  23. 230       CONTROL @Meter;SET ("VALUE":N)
  24. 240     NEXT N
  25. 250   NEXT M
  26. 260   !
  27. 270 Finis:   !
  28. 280   ASSIGN @Meter TO *         ! Delete METER widget
  29. 290   END
  30.